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linha Sinclair - TK 35, CP 200, TK 90X e outros. 

Curso de-Basic voíuise I 

Teoria, exemplos e exercícios resolvidos, explanados em 12 aulas, 
oferecendo una abordagem simples e direta. 

Bicas para adaptar programas de outras máquinas para linha Sinclair. 
Poderá ser usado por auto-didatas, ou coro livro didático. 


Curso de Basic volume II 
programação avançada 

Tea como objetivo complementar o livro Curso de Basic voluae I. 

Procura conduzir o usuário, a construir seus próprios prograsas, 
e nSo se liaita ser apenas uis dicionário de comandos e funçfces. Todos os 
programas possues o respectivo fluxograaa e u®a explicação comentada da sua 
sontages. E us livro didático. 

Ua dos capítulos é dedicado a ensinar como desproteger programas da 
linha Sinclair, 


Linha Apple - todos os computadores compatíveis coa Apple e TK 2000, 


77 Programas para linha Apple 

Através de JOGOS e PROGRAMAS EDUCATIVOS você será induzido a pensar, 
resolver prebleisas, s tosar conheci sento de como poderá usar bem o computa¬ 
dor, de foraa simples e divertindo-se ! 



Prograass CDíserriôis da linha Apple - V.! 
para Pequena-Eapresa 

Este livro trás a listagem cospieta dos programas cdsío: Haia-direta, 
Controle de estoque e Contas a receber e a pagar, indispensáveis à pequena- 
siRpresa. 

ü autor fez uma análise sinunciosa desses programas, com o objetivo 
dE dar oportunidade a você de aprender a programar, além de orientar o pe¬ 
queno eopresário como conduzir-se, na área de informática, de forna econô- 


Prograoas Comerciais da linha Apple - ?.2 
para Pequena-Enpresa 

Este livro trás a listagem completa dos programas como; Utilitário 
de Arquivos, Emissão de Faturas/Duplicatas e Vendas a varejo, indispensá¬ 
veis à pequena- empresa. 

G autor fez uma análise rinunciosa desses prograaas, coo o objetivo 
de dar oportunidade a você de aprender a programar, além de orientar o pe¬ 
queno empresário coíbo conduzir-se, na área de informática, de forma econô¬ 
mica. 


Usando o Visipíot 

G autor faz uma análise completa e exemplificada do programa Visi- 
plot e mostra como tirar dados, ou seja interagir, coa os programas Visa - 
calc e Supervisicalc. 


Usando o Assembler 6502 

Te» coso objetives utilizar os recursos do microprocessador 6502. 

Sua abordagem é a mais simples possível. Possui exemplos de progra¬ 
mação prática e descrição das instruções do 6502. 

Este livro pode ser usado por uma pessoa que nunca programou antes o 
Assembler. 
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PREFACIO 

Desde a Segunda Grande Guerra, o computador tem 
gradualmente se inserido em nossa sociedade, e agora, 
apresenta um papel preponderante» O impacto de alcjuns 
enormes e complexos programas,como aterrissagem 
lunar, e o subsequente progresso na pesquisa 
espacial,demonstrou a importância vital deste 
equipamento para a moderna tecnologia. 

Cada um de nós, tem contactos diários com os 
seus serviços, através de recebimentos de -faturas, 
uso de cartões de crédito, e através de atos sim¬ 
ples, mas essenciais, como a discagem telefônica de 
grande distancia (DDD), e nos bancos. Entretanto, 
rsos sabemos que esses contactos constituem sõ o 
infcio;a gama de aplicacÔes continuará se 
expandindo nos próximos anos. 

Estamos passando para uma era de maior uso e 
controle da informação. Apesar da sua aplicacào 



em muitos aspectos da vida diária, as pessoas con¬ 
tinuam a ignorar como f unci ona,quais as vantagens e 
e limitações, e como poderiam, melhorar profissio¬ 
nalmente, aprendendo mais acerca dele. Esta falta de 
conhecimento, conduz a algumas di storcões. Mui tos 
temem uma mudança radical da vida humana,subordinando 
o Homem aos impulsos de uma máquina insensível, 
enquanto.outros acreditam que ele irá erradicar a 
a maioria das formas de trabalho, deixando o homem 
livre para o lazer.Ambas as visões sào extremas, 
e a ver dadeira promessa do computador, está no meio 
Ele e um maravilhoso instrumento de trabalho,com 
com grande potencial. 

0 objetivo deste corso, é apresentar um guia 
compreensível,projetado para ensinar ao iniciante 
a programá-1o,oferecendo uma abordagem simples, 
direta e tào precisa quanto nos foi possível. 

Este método teve como apoio, a experiencia 
dos cursos para iniciantes oferecidos pela Micro-Kit 
Informática, para adultos e criancas, e visa, como 


livro,difundir a linguagem BASIC em todo o 
território nacional. 

Tomou-se como base, a programação voltada para 
os micro-computadores da linha Sinclair, Apple e Msx 
por serem os mais populares e possuirem um crescente 
número de instalações em nosso País. 

A Micro-Kit tem sido a pioneira nesta área mas 
procura incentivar o espírito de aventura de nossos 
jovens que tem expandido as nossas fronteiras do 
Oeste,fornecendo-os subsídios para que sejam repro¬ 
duzidos os nosôos cursos nas regiões mais afastadas 
dos grandes centros urbanos. 
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Primeira aula 


1-1 - Introdução a programação. 

0 programador iniciante deve praticar 
o que está aprendendo no computador- 

Esta experiência no microcomputador e 
um elemento vital no aprendizado da progra¬ 
mação . 


O que ê um computador ? 

- E urna maquina que aceita informa,, 
çào, processando—a de acordo com instruções 
específicas, e provê o resultado como nova 
informação. 

Embora uma simples máquina de somar 
tenha esta mesma definição, um moderno com¬ 
putador tem a habilidade adicional para 
processar grandes quantidades de informa¬ 
ções, em alta velocidade; fazer certas es¬ 
pécies de decisões e reter numerosos resul¬ 
tados na memdria. 

Qfuando se aprende a usar o computa¬ 
dor, vai ficando evidente que essas facili¬ 
dades somadas, transformam—no em um dispo¬ 
sitivo de extraordinária capacidade. 

Antes de aprender a programá-lo, o 
estudante.deve ter uma clara compreensão de 
dois termos básicos criados pela tecnologia 
da informática; software e hardware. 

As instruções codificadas, programas 
qUe dirigem o computador para processar in¬ 
formação, são chamadas software- 
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O que pretendemos neste curso, e en¬ 
sinar o caminho para o aluno entender o 
processo de desenvolvimento do so-ftware. 

0 hardware, consiste numa unidade de 
processamento central (CPU), memória prin¬ 
cipal, vários dispositivos de entrada e 
saída e de armazenagem. Instruções sào 
executadas, uma de cada vez, na CPU, en¬ 
quanto a memória principal armazena dados, 
e outras instruções de resultados calcula¬ 
dos. 

Dispositivos de entrada e saída 
permitem ao usuário, entrar com informações 
no computador, e receber o resultado pro¬ 
cessado. Isto e usualmente feito num te¬ 
clado, um dispositivo para datilografar a 
entrada, com a saída sendo registrada em 
uma impressora ou vídeo. Os mais comuns 
dispositivos de armazenagem sào os discos e 
as fitas magnéticas, que sào usados para 
armazenagem de programas e dados por um 
tempo maior. 

O que e um programa ? 

* 

— E um plano que informa ao computa¬ 
dor a sequência na qual entram os dados; 
como os cálculos sào realizados; como fazer 
as decisões necessárias e como imprimir a 
saída desejada. 

0 programa deve ser escrito numa lin¬ 
guagem tal como a BASIC, a qual o computa¬ 
dor compreende. Esta linguagem foi origi¬ 
nada do Dartmouth College, no início da dé¬ 
cada de 60. 

A vantagem do BASIC ê permitir uma 
grande gama de aplicações e a capacidade de 


tomada de decisões, embora use um vocabulá¬ 
rio limitado de palavras em inglês. 

Estas palavras atuam como COMANDOS, 
que instruem o computador para fazer certas 
operações desejadas. Embora um programa 
muitas vezes possa parecer perfeitamente 
compreensível para o programador, o compu¬ 
tador poderá vê-lo como algo estranho, se 
forem utilizados comandos que nào façam 
parte do seu vocabulário. E importante en¬ 
tender que a máquina compreende somente co¬ 
mandos legítimos em BASIC. 

Devido a que vários programas possam 
ser escritos, produzindo saídas idênticas, 
o tempo que ele leva para processar cada 
programa, pode variar. 0 objetivo de uma 
boa e eficiente programaçào, e produzir re¬ 
sultados válidos com o mínimo de tempo de 
processamento. 


1.2 — Numeração de linhas. 

Para estabelecer a sequência de ins¬ 
truções em um programa, cada comando e de¬ 
signado por um número de linha. O computa¬ 
dor lê as instruções, começando com o núme¬ 
ro de linha mais baixo, em seguida, o pró¬ 
ximo número, e termina com o comando de nú¬ 
mero mais alto. E' possível bater as ins¬ 
truções fora de ordem, pois o computador 
coloca-as na orr’:?m« 
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Exemplo: Experimente digitar. 

50 PRINT 3 
20 PRINT 2 
10 PRINT 1 

Agora digite RUN e (ENTER ou NEWLINE) 
e você vera que o computador ira colocar as 
linhas em ordem crescente. 

1.3 - Operações - Precedências e símbolos. 

Se parênteses nào são asados, a pre¬ 
cedência de operações no computador e. 

1) Elevação a potência. 

2) Di vi são e/ou Multipl icação, encon¬ 
trada da esquerda para a direita. 

3) Adição e/ou Subtração, encontrada 
da esquerda para a direita. 
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í Operação 

SÍ mbolo 

matemático 

. 

Símbolo ? 

em BASIC ! 

? Adição 

+ 

+ ! 
_ i 

! Subtração 

— 

- ! 

! Multiplicação 

X ou . 

* ! 

! Divisão 

: ou / 

/ ! 

t 


n 

t 

! Exponenciação 

b 

í b ** n ? 


Quando parênteses são usados, o com¬ 
putador calcula a quantidade dentro dos pa¬ 
rênteses primeiro. Se mais de um conjunto 
de parênteses e usado, o conjunto mais in¬ 
terno tem precedência. 

Por exemplo: 

6/3*2 0 resultado e 4, embora a res¬ 
posta possa ser 6/6—1, o computador começa 
da esquerda e -faz a divisão primeiro. 

12+4/0 ü resultado e uma mensagem de 
erro. Q computador não pode dividir por 
zero. 

1.4 - Modo imediato. 

Não ê necessário escrever um programa 
de muitas linhas em BASIC. 0 computador 
executara" um único comando, quando o comando 
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aparecer* sem o numero de linha. 

Assim, comandos sem número de linhas, 
sâfo executados imediatamente, enquanto co~ 
mandos que começam com número de linha, são 
assumidos pelo computador, como parte de um 
programa, sendo assim armazenados. 

Exemplo: 

10 PRINT -COMPUTADOR” 

E assumido como parte de um programa. 

PRINT "COMPUTADOR" 

Será impresso a palavra COMPUTADOR de 
i mediato. 

1.5 - Comandos PRINT e STOP. 

Programa'1.1: 

Este programa ilustra como o computa¬ 
dor pode -Fazer cálculos e imprimir resulta¬ 
dos. 

10 PRINT 31+70+4 

20 PRINT 2 * 5 ~ 6 / 3 

30 PRINT (2 +3) ** 4 

40 PRINT €13-11) **3/0 


Existe uma serie de pontos ilustrados 
por este simples programa: 

1> 0 comando PRINT -faz o computador 
calcular e imprimir o resultado desejado. 

2> Cada programa, deve ter um comando 
STOP, como instrução de número mais alto, 
para in-formar ao computador que o programa 
esta completo. Qualquer comando de número 
mais alto que o STOP sera ignorado pelo 
computador. 

3) O programador digita o comando 
RUN, para instruir o computador para rodar 
o programa. Note que este comando nâo tem 
número de linha, e nào e parte do programa. 

1.6 - Comando LET. 

0 programa seguinte introduz o con¬ 
ceito de designação de resultados de cálcu¬ 
los para uma nova variavel. 

Ele também indica como um uso expan¬ 
dido do comando PRINT permite ao programa¬ 
dor mais -flexibilidade na saída. 

Suponha que um programa e escrito pa¬ 
ra computar a área de uma mesa. 

Programa 1.2: 

10 LET L~I5 

20 LET C—25 


50 STOP 


30 LET A=L*C 
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40 PRINT"AREA DA MESA= ”5 A 
50 STOP 


O comando LET, nas linhas 10 e 20 ar¬ 
mas en a os valores 15 e 25 nas variáveis L e 
C e na linha 30 ele comanda o computador 
para -fazer um cálculo e designa o resultado 
para uma nova variável A. Para executar a 
linha 30, o computador necesssita dos valo¬ 
res de L e C, previamente designados nas 
linhas 10 e 20. 

Na linha 40, o computador e instruído 
para imprimir as palavras: AREA DA MESA= e 
depois, o valor da variável A- Palavras ou 
símbolos entre aspas apos um comando PRINT, 
são impressos pelo computador. 

O "5" instrui o computador para im¬ 
primir o valor da variável A, imediatamente 
apos as palavras entre aspas. 

Na -figura abaixo veremos como o com¬ 
putador faz o armazenamento das variáveis C 
e W. 


^oCt 0 


f \JaA Jí- 


9 


MEMÓRIA 


UNIDADE ARITMÉTICA 



! A ! 


! 375 ! 


< 


15*25=375 


t 

t 


< 


A adiçào das seguintes linhas no pro¬ 
grama 1.2, produzirá os resultados na forma 
de tabela. 


5 PRINT "COMPRIMENTO”;" ”;“LARGURA”5 

**-«arêA" 

40 PRINT " ”;L; ” ";W;" **5A 


1.7 - Comando INPUT. 

Em muitos cásos, especialmente usando 
o computador, para fazer cálculos envolven¬ 
do dados de um laboratOrio, e desejável in¬ 
troduzir os dados através do teclado tào 
logo sejam* conhecidos. 
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Programa 1-3: 

Este programa e uma variação do pro¬ 
grama 1-2. Agora os valores de L e C podem 
ser introduzidos durante a execução. 


10 INPUT L 
20 INPUT C 
30 LET A=UC 

40 PRINT"AREA DA MESA= "5 A 
50 PRÍNT 
60 BOTO10 
70 STOP 


Toda vez que o computador encontra o 
comando INPUT, ele coloca um cursor L no 
canto‘esquerdo inferior da tela. , 

O primeiro numero do INPUT, e desig 
nado para a primeira variável na linha 10 
aue e L- O segundo numero, e designado pa 
ra a segunda variável que e C. O programa 
e então executado, e o valor de A e impres 

50. , ■ 

Para parar um programa, em qualquer 

tempo, durante uma execução, o usuário de 
vera" apertar as teclas SHIFT e STOP e a te^ 
cia ENTER ou NEWLINE, assim, poderemos re 
executar o programa ou lista-lo. Podemos 
melhorar o nosso programa, de maneira que, 
ao ser executado, ele Taça uma pergunta. 
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Para isto devemos acrescentar a se 
guinte alteração: 

5 PRINT , ‘QUAIS SAO AS DIMENSÕES?” 

Devemos observar que na linha 60, 
aparece o comando GOTO. Este comando tem 
como -finalidade retornar à linha 10 para 
podermos entrar com novos valores. 


1.8 - Função SQR. 

Veremos o uso desta -função, através 
do programa 1.4. 

Programa 1.4: 

Este programa usa o teorema de Pita— 
2 2 2 

tagoras C * A + B para calcular a hipotenu¬ 
sa C de triângulos retângulos, utilizan- do 
os catetos A e B. Para o calculo da varia 
vel C, e necessária a introdução da -função 
SQR. 

10 INPUT A 
20 INPUT B 

30 LET C—SQR < A**2+B**2 > 

40 PR INT "Hl POTENUSA== ”?C 
50 PRINT 
60 GOTO 10 
70 STOP 
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Na linha 30, a -função SQR calcula a 
raiz quadrada da expressão entre parênte¬ 
ses. 


1.9 - Função INT. 

0 computador tem a habilidade de 
truncar decimais. 

0 comando A = INTÍX), -faz A igual ao 
maior numero inteiro não maior que X. 

Observe que esta -função, não arredon¬ 
da um numero positivo mas, simplesmente, 
trunca-o. Para um número negativo, ela to¬ 
ma o prdximo inteiro negativo mais baixo. 

Por exemplo: 

INT <3.7640) = 3 INT(5.9) = 5 

INT(-1.7) « -2 INT(-3.01) = -4 

Arredondar um número para o inteiro 
mais prdximo, e -feito, -fazendo-se A = INT<X 
+ 0.5). 


Por exemplo: 

Se X — 3.4 então 3.4 + 0.5 — 3.9 e 
INT(3.9) = 3 

Se X = 3*6 então 3.6 + 0.5 =4.1 e 
INT <4.1) = 4 

A -função INT e também usada para ar¬ 
redondar números para um número especi-fico 
de casas decimais. INT(10 * X + 0.5) / 10 
arredondara X de uma casa decimal. 
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Por exemplo: 

Se X = 2.57, então <10 * X + 0.5) 
<25.7 + 0.5) = 26.2, e INT(26.2) = 26, que 

quando dividido por 10 e 2.6, o valor cor¬ 
reto arredondado. Uma -formula geral para 
arredondar X para N casas decimais e: 

INT <10 ** N * X + 0.5) / 10 •** N 


Retornando ao programa 1.4, para ar¬ 
redondar a saída para o mais prdximo deci¬ 
mo, a linha 40, deve ser alterada para: 

40 PRINT”HIPOTENUSA= "5INT<10 * C + 
0.5) / 10 


1.10 — Comando REM. 

✓ 

E um comando utilizado no corpo do 
programa para permitir ao programador, in¬ 
troduzir observações explanattírias. 

Exemplo: 

5 REM PROGRAMA QUE CALCULA A HIPOTENU 
SA DE UM TRIÂNGULO RETÂNGULO 
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Exercícios da primeira aula: 


l-a> Quãis das seguintes variaveis 
sào legitimas em BASIC? (Sim ou Não) 

O IA A AB 


P3 TO 0 Hl 


i-b> Quais sâfo os tipos de variaveis 
em BASIC? 


2) Escreva um programa para resolver 
a expressão 12 * X + 7 * Y: 


X J 3 ! 7 5 12 



3) Um pedaço de pizza contem cerca de 
375 calorias. Uma pessoa gasta 100 calo¬ 
rias, ao correr a distância de 1 milha. 

Escreva um programa que pergunte a 
cada pessoa, quantos pedaços de pizza ela 
comeu e que informe a distância que deve 
ser corrida para queimar as calorias consu¬ 
midas. 
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Exemplo: 

QUANTOS PEDAÇOS VOCE COMEU ? 4 
VOCE DEVE CORRER 15 MILHAS 


4) Usando um comando INPUT, escreva 
um programa que calcule o volume de uma sa¬ 
la, dada a sua largura, comprimento e altu¬ 
ra. 

5) Escreva um programa para calcular 
a media de quatro numeros. 

6) Escreva um programa para calcular 
os preços unitários dos itens de um super¬ 
mercado, 

7) Escreva um programa para converter 
graus Fahrenheit em graus Celcius. 

A formula para isto e: 

C - ( 5 / 9 > * ( F - 32 ) 

8) Escreva, um programa que calcule a 
soma de A com B e o produto de A com B. 
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Segunda aula 


2.1 — Decisões e loops. 

Os comandos apresentados na aula an¬ 
terior permitem, ao computador, executar 
cálculos que podem ser -feitos numa simples 
calculadora- No entanto, a habilidade de 
um computador de tomar decisões, o -faz mais 
poderoso que máquinas que so -fazem cálcu¬ 
los- Uma vantagem importante da tomada de 
decisões do computador, e permitir a execu¬ 
ção de um conjunto de comandos durante um 
determinado numero de vezes- Assim, de 
forma diferente do homem, os computadores 
podem repetir por várias vezes qualquer 
serviço, não importando o quão difícil ele 
possa ser- "* 

□s comandos introduzidos na primeira 
aula, GOTO, PRINT, etc-, são chamados in¬ 
condicionais, pois o computador não tem es¬ 
colha e procura—os na ordem de sua ocorrên¬ 
cia no programa. 

Nesta aula, comandos condicionais e 
comandos de tomada de decisões, tais como: 
IF ... THEN ..., FOR ... TO ... STEP ..., 
NEXT ... e a técnica de somaçào, são apre¬ 
sentados. 


2.2 - Comando IF ... THEN .... 

A forma geral para o comando IF 
THEN... e: 


IF (relação) THEN (num. de linha) 
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A relação compara duas quantidades. 
Elas devem ser separadas . por um dos 
símbolos indicados abaixo: 



Um exemplo do comando IF...THEN...e: 

20 IF X > 5 THEN GOTO 60 

Quando a relação na linha 20 (X e 
maior que 5) for verdadeira, o computador 
desvia para a linha 60. 

Quando a relação e falsa, porque X e 
menor ou igual a 5, o computador prossegue 
executando a próxima linha sequencial do 
programa. 

Programa 2.1: 

Este programa determina se o valor de 

entrada de X e solução para a equação: 

X ** 2 - 82 * X + 657 = 0. 
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10 

INPUT X 


20 

IF X ** 2 
GOTO 50 

- 82 * X + 657 = 0 THEN 

30 

PRINT x;" 

NAO E UMA SOLUCAO" 

40 

GOTO 10 


5P 

RINT X; 

JMA SP PAG" 

60 

GOTO 10 


70 

STOP 



Note a necessidade da linha^40. Ela 
nào permite a impressão da linha 50 ? a me¬ 
nos que X satisfaça a relação no comando 
condicional da linha 20. 


2.3 - Comando FOR.. TO.. STEP.., NEXT. 

Suponha que seja necessário, no pro¬ 
grama 2.1, encontrar todas as soluções en 
tre o conjunto de inteiros ímpares positi 
vos de 1 a 99. Com os comandos disponíveis 
neste ponto, o problema pode ser resolvido, 
usando-se o comando INFUT, requerendo que 
50 números sejam datilografados. Os coman 
dos FOR. .-TO...STEP..-e NEXT resolvem o 
problema de gerar uma grande sequência de 
números, considerando que cada numero na 
sequência difere, de seu predecessor de uma 
quantidade constante. A única coisa que 
pode ser mudada,e estar diferente num FOR, 
sào as variáveis, e as três relações. , oe o 
STEP nâto for usado no comando, o compútador 


usara o valor de 1 para o STEP. Revisando 
o programa 2.1 para usar estes novos coman¬ 
dos, a linha 30 e apagada e as linhas 10, 
40 e 60 são substituídas por: 

10 FOR X- 1 TO 99 STEP 2 

30 

40 GOTO 60 

60 NEXT X 

Estas linhas, criam um loop, para 
testar cada número impar de 1 a 99. Quando 
o programa alcança a linha 60, o computador 
retorna â linha 10 para outro ciclo. 

No comando NEXT, a variável deve ser 
a mesma que a usada no comando FOR que 
abriu o looping. Muitas vezes, estruturas 
mais complicadas de looping são necessárias 
a um programa. As estruturas de looping, 
não devem se cruzar. 0 exemplo abaixo, 
ilustra um segmento de programa com loo- 
pings cruzados. 

-> 100 FOR A= 2 TO 20 

I 

-> 110 FOR B= 4 TO S 

i i 

! ! os loopings se cruzam 

i i 

t i 

i -> 240 NEXT A 

t 

-> 250 NEXT B 
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Um outro exemplo com loopings cruza 

dos: 

___> 100 FOR I- 0 TO 20 STEP 2 

i 

i -> ii0 for A- 10 TO 2 STEP -1 

t t 

i —.-> 120 FOR B= 1 TO 4 

! t 1 

ir» o looping externo esta 

» i i certo, o interno cruza 

i i i 
t i i 

i i 170 NEXT A 

i 1-> 180 NEXT B 

i 

--> 190 NEXT I 

O exemplo seguinte ilustra um compli¬ 

cado looping, onde os loopings estão orga¬ 
nizados corretamente: 

--> 100 FOR X= 1 TO 10 

» —> 110 FOR Y- 2 TO 4 

i i 

« !_> 140 NEXT Y 

j -> 170 FOR Z- 1 TO 5 

j i —> 210 FOR K= 20 TO 10 STEP -2 

I ! I 

í ? —> 270 NEXT K 

< i 

« -> 310 NEXT Z 


410 NEXT X 
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No exemplo acima, nos temos looping 
duplos e looping dentro de looping. Lem¬ 
bre—se que qual quer combinação pode ser 
usada num programa, mas devemos ter o cui¬ 
dado de não deixar os loopings se cruzarem. 

Se isto ocorrer, o computador assina¬ 
la um erro e para. 

2.4 — Somação. 

A técnica de somação e um bom exemplo 
da utilidade das técnicas de decisão e 
loop. Q método começa nomeando uma variá¬ 
vel e dando a ela um valor inicial. Cada 
vez que uma quantidade e somada ao valor 
anterior da variavel, a soma des dois passa 
a ser o novo valor da variável. 

Por exemplo: 

30 LET A = A + 5 

0 comando A — A +■ 5 e ilegal matema¬ 
ticamente. Neste caso, entretanto, o com¬ 
putador interpreta o sinal de igual como: 
"recoloque” ao invés de "igual a". Usando 
a analogia de caixa, assuma que o valor 10 
foi designado para a caixa A. 

Quando o computador processa a linha 
30, 5 e somado ao valor na caixa A. O novo 
valor 15 substitui o prévio valor na caixa 
A. 
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memória 


i 

A 

i 

» 

10 

t. 

1 

1 

15 

1 

1 


1 


10 



UNIDADE 

ARITMÉTICA 

i 10 + 5 = 15 ! 

i 

§ 

i 

i 



Programa 2.2: 

O seguinte programa usa a técnica de 
somação para imprimir todos os inteiros P a 
res de 50 ate 60. 

10 LET A * 50 

20 PRINT A;" “5 

30 LET A = A + 2 

40 IF A <= 60 THEN GOTO 20 

50 STOP 

A linha 10, inicialmente designa para 
A ° Alinha 30, o valor 2 e somado ao 
antigo valor ^ Na próxima vez que a h~ 

nha 30 ?or encontrada, o valor de ft passa a 
ser 54. Na linha 40, o valor de A e canpa 
rado com 60. O 1°°P continua ate que o va 
lor de A seja maior que 60. 
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Os comandos avançados em BASIC, en¬ 
tretanto, permitem o numero de linha no co¬ 
mando IF...THEN..., serem substituidos por 
um ou mais comandos. Os exemplos seguin¬ 
tes, ilustram como procedimentos que teriam 
requerido no mínimo dois comandos, podem 
ser reduzidos para um. 

IF X = 5 THEN PRINT"CORRETO” 

IF X — 12 THEN LET A = 7 

IF X = 22 THEN LET N - N + 1 

0 BASIC permite que, uma série de co¬ 
mandos, sejam impressos numa uni ca linha 
separados por : (dois pontos). 

A linha: 

IF X = 5 THEN PRINT"CORRETO": GOTO 50 
tara imprimir a palavra CORRETO, e causara 
um desvio para a linha 50, se X - 5, mas 
nèto íara nada, se X nào -for igual a 5. 


2.5 - AND/OR. 

Os modi-f icadores de comando AND e OR 
no comando IF...THEN... podem também serem 
usados para simplificar comandos nos quais 
mais de uma condiçeto possa acontecer. 

IF X > 5 AND Y = 3 THEN GOTO 50 

Nos só iremos para a linha 50 se am¬ 
bas as condições forem verdadeiras. 
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XF X > 5 OR Y = 3 THEN GOTO 50 

Nós iremos para a linha 50 se uma ou 
outra condição for verdadeira. Basta que 
uma condição seja verdadeira. 

Programa 2-31 

Este programa testa valores de X e Y 
para saber se eles sào soluçBes para as de_ 
sigualdades 5 * Y + X ** 2 > 10 e Y ** 2 
5 * X < 20. 

10 INPUT X,Y 

20 IF 5 * Y + X ** 2 > 10 AND Y**2- 
5 * X < 20 THEN GOTO 50 

30 PRINT X5 m E “ 3 Y5 ** NAO SAO SOLUCOES" 

40 BOTO 10 

50 PRINT X5” E ";Y; U SAO SOLUCOES" 

60 GOTO 10 

70 STOP 

Exercícios da segunda aula. 

1 - Escreva um programa que calcule a 
seguinte expressão: 

(3/5) * X + 2 * X + 2/5 > 300 
para os valores de X - (10,12,14,- - - y 40> 
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2 — Escreva um programa que pergunte 
a idade de uma pessoa- Se a pessoa tiver 
16 anos ou mais, o computador devera impri¬ 
mir: “VOCE PODE DIRIGIR UM CARRO". Em caso 
contrário, -faça o computador informar quan¬ 
tos anos a pessoa devera esperar para diri¬ 
gir um carro. 

3 — Escreva um programa que gere uma 
tabela de numeros e suas respectivas raízes 
quadradas. 

4 — Escreva um programa que conte e 
imprima numeros de 10 em 10 entre 0 e 500. 

5 - Um hotel tem 10 andares. 

Cada andar tem 10 aposentos. Faça o 

computador imprimir uma etiqueta para cada 
apartamento informando o andar e o número 
do aposento. 

6 - Escreva um programa que imprima 
uma tabela de conversão de polegadas para 
centímetros- Existe 2-54 centímetros numa 
polegada- Comece com 0 e continue ate 10 
polegadas em STEPS de 0.5 polegadas- 
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Terceira aula 


3.1 - "STRINGS” <cadeias e -formatação). 


Nas aulas anteriores, as variaveis 
têm sido usadas apenas para representar nu 
meros. Esta aula introduz a variavel^ 
"STRING", que permite que as variaveis re 
presentem palavras, ou qualquer combinaç o 
de letras, dígitos e caracteres especiais. 

Entre as vantagens das variaveis 
"STRING*', esta a -flexibilidade permitida 
para a formatação. Os comandos de formata¬ 
ção num programa, são aqueles que mformam 
o computador do "layout" desejado para a 
saída. Comandos PRINT são introduzidos pa¬ 
ra permitir maior variedade na formatação. 

3.2 - Variaveis 5TRING- 

As variaveis numéricas, representam 
somente numeros, e sào denotadas por varias 
letras, ou uma letra seguida de um digito. 

O termo STRING, indica uma sequência 
de caracteres representadas por letras, di 
gitos e/ou caracteres especiais, que sao 
tratados como uma unidade única. 

Por exemplo: ANA, 1984, 609-896, CASA 
e 5:00 P.M. seriam STRINGS. Qualquer nome 
legítimo de variável seguido de um sinal de 
dolar <$>, representa uma variavel STRING. 

Por exemplo: A$, B$, W$. A analogia 

com caixas, pode ser usada para en-fatizar a 
di-ferença entre variáveis numéricas e va 
riáveis string. 
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Enquanto caixas de variáveis numéri¬ 
cas contêm números, caixas de variáveis 
strings devem conter caracteres. 

VARIAVEL VAR IAVEL 

NUMÉRICA #RING 

i £ ; j ! 

! :4,3 ! ! ERICKA ! 


Programa 3.1: 

O seguinte programa demonstra o uso 
de uma variável string. 

10 INPUT A$ 

20 PRINT A* 

30 GOTO 10 

40 STOP 

Onde A* é : PEDRO, CARLA, 5000 
Programa 3.2: 

Podemos ter ambas as variáveis, nume- 
ricas e strings, no mesmo comando. 

10 INPUT R* 


20 INPUT H$ 
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30 INPUT X 
40 INPUT ní 

50 PRINT Rí;” ”;x;" H ;Ní,” ”;Hí 
60 GOTO 10 
70 STOP 

Onde Rí, H#, X e Ní são: 

SALA, CASA, 15, CARLA 
13, JOAO, PEDRO, 25 

3-3 - Comparação de STRINGS. 

E possível comparar variáveis string, 
usando-se um dos seguintes símbolos para 
determinar se al-f abeticamente eles são: 
iguais <—); menor que <<); maior que (>> ou 
não iguais <<>). 

0 -formato geral usado e: 

IF (string) (simbolo) (string) THEN 


Programa 3.3: 

0 programa abaixo coloca duas strings 
em ordem alfabética: 

10 PRINT”DOIS NOMES” 

20 INPUT Aí 
30 INPUT Bí 

40 IF Aí > Bí THEN GOTO 70 


50 PRINT Aí?” VEM ANTES DE ”;Bí 
60 GOTO 10 

70 PRINT Bí;” VEM ANTES DE ”;AÍ 
80 GOTO 10 
90 STOP 


3.4 - SUB—STRINGS. 

Dada uma string, uma sub-string con¬ 
siste de um numero de caracteres consecuti¬ 
vos de string, apanhados em sequência. 

A -forma geral e: 

expressão STRING < pos.1 TO pos.2 > 

Ela -fornece uma sub—string da string 
Aí, comecando com o carater na posição 1 e 
terminando com o carater na posição 2 . 

Para verificarmos isto, digitemos as 
linhas 10 e 20 . 

10 LET Aí="123456789” 

20 PRINT "CARACTERES 2, 3, E 4 DE Aí 
SAO: Aí<2 TO 4> 

Observação: não e preciso colocar es¬ 
paço depois do TO. 

Digite RUN e você vera impresso na 
tela 234. 

a) Aí(TO pos-2) - Fornecerá a parte 
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esquerda da string A$, começando do primei¬ 
ro carater ate a posição 2. 

Adicionemos agora a linha 30: 

30 FRINT"OS PRIMEIROS 4 CARACTERES DE 
A$ SAO: "5 A$ ( TO 4) 

Será impresso: 1234 

b) A$(pos.1 TO) - Fornecerá a parte 
da direita da string A$, começando na posi¬ 
ção 1 ate o -final. 

Digite a linha 40: 

40 PRINT"A PARTE DA DIREITA DE A$ A 
PARTIR DO CARATER 5 E "?A$(5 TO) 

Sera impresso: 56789 

c) A$(pos.n) ou A$(pos.n TO pos.n) - 
Fornecerá d carater na posição n. 

Tente a linha 50: 

50 PRINT"0 QUARTO CARATER DE A$ E: "5 
A$<4> 

d) A$ ( > ou Aíí TO ) - Fornecerá toda 
a string A$ como uma sub-string. 

A linha 60 demonstra isso: 

60 PRINT"A$ E: M ;A$< > 

Sera impresso: 123456789 

e) LEN A* - Fornece o numero de cara¬ 
cteres da string A$. Tente a linha 70, re¬ 


lembrando que LEN e uma -função ( aperte 
SHIFT ENTER, e a tecla K ): 

70 PRXNT”0 NUMERO DE CARACTERES EM A$ 
E: "5LEN A$ 

Será impresso: 9 

f> VAL A* — Determina o valor numéri¬ 
co da string A$. 

A linha 30 mostra isto (VAL e uma 
-função e esta na tecla J>: 

30 PRINT M 0 VALOR DE A$ E: "5VAL A$* 

Nos teremos 123456790. Note que o 
computador arredondou seu numero de nove 
dígitos para um de oito dTgitos. 

g) STR$ X - Converte uma expressão 
numérica X em uma string. Tente as linhas 
90 e 100. <STR$ e uma -função e esta na te¬ 
ci a Y.) 
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90 LET A-333 

100 PRINT"A STRING DE A E: "; STRÍ A 

Sera impresso: 333 

h) CODE Aí - Fornece o código do pri¬ 
meiro carater da string Aí- Se a string 
■for nula, ou o primeiro carater e um espaço 
em branco, nos teremos o codigo ”0". 

A linha 110 demonstra isto. <CODE e 
uma função e esta na tecla X). 

110 PRINT "Aí COMECA COM 0 CARATER DE 
CODIGO NUMERO: "5CODE Aí 

A linha 110 imprimira o numero "29” - 
que é o código do carater “i". Veja no 
seu manual a lista de códigos. 

Tente digitar PRINT CODE "1", você 
obter aí o mesmo resultado. 

i > CHRÍ(cod> - Fornece o c^rsiter cor¬ 
respondente a um código. Relembre, que 
"cod" pode ser uma expressão constante, va¬ 
riável ou formula, cujo valor deve estar 
entre 0 e 255. 

CHRÍ e uma função e esta na tecla U. 

Digite a linha 120. 

120 PRINT “O CARATER PARA O CODIGO 29 
E: “5CHRÍ(29) 


3.5 — Pontuação em comandos PRINT. 

Nas últimas aulas, vírgulas e ponto e 
vírgulas, têm sido usados como pontuação em 
comandos PRINT para instruir o computador 
sobre como arrumar a saída. Cada linha no 
video e -feita de um predeterminado número 
de espaços, nos quais caracteres podem ser 
impressos. Embora os di-ferentes vídeos 
possam ter um número variavel de espaços, a 
linha e usual mente subdividida em duas zo¬ 
nas. Se existem 32 espaços, as duas zonas 
contêm 16 espaços cada uma. 

Isto para os equipamentos da linha Sinclair.Nos 
equipamentos da linha Apple e MSX,a tela é dividida 
em 3 partes. Se uma vírgula 

e' usada para formatação num comando PRINT, 
a informação que se segue e impressa come¬ 
çando rio primeiro espaço da próxima zona 
disponível« 

Quando um ponto e virgula é utiliza¬ 
do, a informação seguinte e impressa come¬ 
çando no pro'ximo espaço disponível. 


Programa 3.4: 

D seguinte programa ilustra O uso de 
pontuação e mostra a localização das duas 
zonas. 

10 INPUT A* 

20 FOR N = 1 TO 3 
30 PRINT A*; 

40 NEXT N 


Sera impresso: 1 



50 PRINT"12" 

60 PRINT"A" , "B", "C" , ‘'D”, "E", "F" 

70 STOP 

Qnde A$ e: 1234567390 
Programa 3.5: 

Este programa calcula a media de tr&s 
estudantes e mostra a impressão na -forma de 
tabela. 

10 PRINT "NOME";” "S" BR AU “5 

" ";"HEDIA n 

20 PRINT” " 

30 INPUT A* 

40 INPUT C 

50 INPUT D 

60 INPUT E 

70 LET A = INT <(C + D + E> *10/3 + 
0.5) / 10 

80 PRINT A$;" ";C;” ”;D; " M ;E; 

” H ;A 

90 GOTO 30 

100 STOP 

Onde A$, C, D e E são: 

PEDRO, 89, 90, 90 


CLARA, 70, 75, 80 
ROSA, 30, 33, 85 

3.6 - Comando PRINT TAB. 

Uma outra maneira de formatar a saí¬ 
da, e usar o comando PRINT TAB, Este co¬ 
mando permite ao programador, começar por¬ 
ções da impressão em locais especificados. 

Exatamente como o "TAB” da maquina de 
escrever, a primeira posição de carater e 
TAB<0>. Uma informação de impressão nas 
posições 5, 15 e 25 é feita da seguinte ma¬ 

neira: 

10 PRINT TAB <5>r‘MSTO”51AB<15)5"E"5 
FAB<25);"TAB" 

E importante usar ponto e virgula (?) 
apos o TAB. 

Exercícios da terceira aula: 


1 — Como e que uma variável string e 
identificada em BASIC ? 


2 — Escreva um programa para desenhar 
a letra (L) como na figura abaixo. Somen¬ 
te dois comandos PRINT podem ser usados no 
texto do programa. 

XX 

XX 

XX 

XXXXXX 

XXXXXX 



Quarta aula 


3 — Escreva um programa que produza a 
saida abaixo usando somente um comando 
PRINT. Os nomes são espaçados 10 vezes, do 
início de um nome para o início do prdximo 
que e impresso na linha seguinte. 


Por exemplo: 


MARIO 

CARLOS 

LUCIANO 


ANTONIO 

RICARDO 

BRUNO 


4 — Escreva um programa que entre com 
uma cadeia de caracteres e a sua saída seja 
em diagonal- Cada letra será impressa numa 
linha embaixo da outra. 

5 - Escreva um programa para entrar 
com uma cadeia de caracteres, e a saída se¬ 
ja impressa na vertical. 


4.1 - Funções e subrotinas. 

Esta aula esclarece o uso da -função 
SSN, valor absoluto ABS e a -função geradora 
de nümeros aleatórios RND. 

Em adição, algumas técnicas de poupar 
tempo em programação mais sofisticada e 
apresentada. Isto inclui o comando GOSUB. 


4.2 - Funções SGN e ABS. 

Em algumas situações que usualmente 
envolvem equações matematicas, pa4 e ser ne¬ 
cessário saber, se uma variavel e positiva 
ou negativa, ou determinar seu valor abso¬ 
luto. 

A função SGN tem somente três valores 
possiveis: 

SGN < X> - 1 se X > 0 


6 - Escreva um programa que quando 
você entrar com uma cadeia de caracteres 
ele imprima a cadeia, e vai retirando um 
carater por vez. Por exemplo: se você 
digitar COMPUTADOR, o computador imprimira^ 


COMPUTADOR 

OMPUTADOR 

MPUTADOR 

PUTADOR 

UTADOR 

TADOR 

ADOR 


SGN(X) = -1 se X < 0 
SGN(X > - 0 se X = 0 

Programa 4.1: 

10 FOR X = 20 TO -20 STEP -5 
20 LET A = SGN(X) 

30 PRINT A?" "? 

40 NEXT X 
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50 STOP 


Programa 4.2: 

0 valor absoluto de um numero; iX!, 
pode ser encontrado usando-se ABS(X). 

10 FOR X - -20 TO 20 STEP 5 
20 LET A - ABS(X) 

30 PRINT A;” "5 
40 NEXT X 
50 STOP 


4.3 - Comando RND e RANDOM. 

4.3.1 - Linha Sinclair 

Em muitas simulações de computador, 
tais como, experimentos de laboratório, 
problemas de ciência geral e jogos, e ne¬ 
cessário gerar numeros aleatórios. O com¬ 
putador -faz isto, usando—se a -funçào RND. 

O comando RND instruira' o computador 
para produzir um número aleatório entre 0 e 


Programa 4.3: 

10 FOR X = 1 TO 10 


20 LET R = RND 


30 PRINT R, 
40 NEXT X 


50 STOP 


Para obter inteiros de 0 ate 9, b 
funçâfo INT é empregada. 

A linha 20 e alterada para: 

20 LET R = INT(10 * RND) 

Este comando multiplica o numero ran— 
dômico original por 10, e ent&o, trunca o 
resultado para o próximo inteiro menor. 

A seguinte equaç&o pode ser usada pa¬ 
ra gerar um conjunto de inteiros randómi - 
cos, nos quais N, e o número de inteiros no 
e^onjunto, com A sendo o menor inteiro. 

20 LET R = INT(N * RND) + A 

Para produzir um conjunto de inteiros 
randòmicos de 40 ate 50, inclusive, use 
N = 11 e A = 40. Usando somente o comando 
RND, o programa produzira o mesmo conjunto 
de inteiros randómicos cada vez que ele 
correr. Para produzir um conjunto diferen¬ 
te a cada corrida, o comando RAND deve ser 
incluído no programa. 


Programa 4-4: 

O programa abaixo inclui um comando 
RAND para produzir números inteiros randò- 
micos de 253 ate 294, inclusive- 



40 


41 


5 RAND 

10 FOR X = I TO 10 

20 LET R = INT(42 * RND) + 253 

30 PRINT R;” ”; 

40 NEXT X 
50 STOP 

Programa 4.5: 

O programa de jogo abaixo, escolhe 
aleatoriamente ntlmeros de 2 dígitos entre 
10 e 99 e da ao jogador 3 chances de acer¬ 
tar cada um dos dois dígitos. 

20 LET Y = INT(90 * RND) + 10 

30 FOR A = 1 TO 3 

40 PRINT"INFORME 0 PRIMEIRO DIGITO" 

45 INPUT B 

50 IF B = INT<Y/10) THEN GOTO 90 
60 NEXT A 

70 FRINT”VOCE ESTA ENGANADO, O NUMERO 
ERA ";INT(Y/10> 

80 GOTO 100 


90 PRINT”VGCE ESTA CORRETO” 

100 FOR D = 1 TO 3 

110 PRINT”INFORME 0 SEGUNDO DIGITO" 

115 INPUT E 

120 IF E = Y - 10 * INT(Y/10) THEN 
GOTO 160 

130 NEXT D 

140, PRINT "VOCE ESTA ENGANADO, 0 NUME 
RO ERA ";Y - 10 * INT<Y/10> 

150 GOTO 170 

160 PRINT”VOCE ESTA CORRETO" 

170 STOP 

4.3.2 - Linha Apple e MSX 

Na linha Apple, a T unção RND deve ser usada com 
um parâmetro entre parênteses. Se o conteúdo 
do parâmetro -for zero, o número aleatório 
gerado será sempre o mesmo. 

Na linha MSX,para que seja gerado um número 
realmente aleatório, usar como parâmetro (—TIME). 
Exemplo: 10 X = 8 

20 PRINT RND (X) 

Na linha Apple 

20 PRINT RND (-TIME) na linha MSX 
A seguir, você pode -fazer adaptações nos 
programas acima,dependendo do tipo do seu equipamento 

4.4 - Comando GOSUB e RETURN. 



Nesses programas, onde partes do mes 
mo são repetidas, mas não produzem os mes¬ 
mos valores cada vez, pode ser e-ficiente 
usar uma subrotina. Uma subrotina inicia 
com o comando GOSUB "numero de linha", e 
termina com o comando RETURN» 

Por exemplo: 

10 ..._ 

20 GOSUB 200 
30. 

200 . 

210 . 

230 RETURN 

999 STOP 

q esqueleto do programa acima, ilus¬ 
tra o uso de uma subrotina. Na linha 20, o 
programa desvia para a subrotina que começa 
na linha 200, executa a subrotina, e então, 
na linha 230, retorna para o corpo do pro¬ 
grama na linha 30. E'válido usar mais de 
um comando RETURN, dentro da subrotina. 

Deve ser lembrado, que o computador, 
sempre retorna para o primeiro comando apos 
o comando GOSUB, que chamou a subrotina. 

Entretanto, e aconselhável colocar as 
subrotinas no 'final do programa. 

As subrotinas, podem ser aninhadas de 
tal manèira, que uma chame a outra. 


Este programa e uma versão estendida 
do programa 4.5, reescrito de tal maneira, 
que um número de 4 dígitos possa ser adivi¬ 
nhado dígito por digito, dando ao jogador 3 
oportunidades para cada dígito. 

20 LET R = INT(9000 * RND) + 1000 
30 LET A - INT <R/1000> 

40 LET R * R - 1000 * A 
50 LET A$ = " PRIMEIRO “ 

60 GOSUB 500 

70 LET A = INT<R/100) 

80 LET R * R - 100 * A 
90 LET A$ = " SEGUNDO " 

100 GOSUB 500 

110 LET A = INT<R/10) 

120 LET R = R - 10 * A 
130 LET A$ = “ TERCEIRO " 

140 GOSUB 500 
150 LET A = R 
160 LET A* = ” QUARTO " 


Programa 4.6: 


170 GOSUB 500 
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180 GOTO 999 

500 FOR X = 1 TO 3 

510 PRINT"INFORME O 11 ;A$5" DIGITO" 

520 INPUT B 

530 IF B - A THEN GOTO 570 
540 NEXT X 

550 PRINT"VOCE ERROU TRES VEZES. 0 
A$5" DIGITO ERA ";A 

560 RETURN 

570 PRINT"VOCE ESTA CORRETO. O ”;A$; 

'* DIGITO ERA "; A 

580 RETURN 

999 STOP 

Sem uma subrotina, o programador te¬ 
ria que datilogra-far as linhas 500/580 qua¬ 
tro vezes. Note como as linhas 30, 70, 110 
e 150 isolam cada dígito, e como os valores 
de A, R e A$ sàfo alterados apos cada RETURN 
da subrotina. 

Obs. A -funçào RND deste programa está 
ajustada para a linha Sinclair. 

Caso o seu equipamento seja de outra linha, 
■faça os ajustamentos constantes do item 4.3.2 

Exercícios da quarta aula: 
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1 — Para obtermos uma sequência di-fe— 
rente de numeros aleatórios cada Vez que o 
programa e executado, qual o comando que 
devemos" utilizar ? 

2 - Para obtermos a mesma sequência 
de números aleatórios cada vez que o pro¬ 
grama e executado, qual o comando que deve 
ser utilizado ? 


3 - Escreva um programa para imprimir 
10 números inteiros aleatórios de 50 ate 
75, inclusive. 


4 - Escreva um programa que simule o 
lançamento de um dado. 0 dado devera" ser 
lançado 10 vezes e em cada vez devera im¬ 
primir o numero da -face. 
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Quinta aula 


5-1 - Variáveis subscritas. 

A *f unção RND desta aula está 
ajustada para a linha Sinclair.Se o seu 
caso for outro,-faça os ajustamentos 
constantes do item 4.3.2 

O principal objetivo das variaveis 
subscritas, e armazenar, -facilmente, grande 
quantidade de dados, recuperando-os mais 
tarde. Previamente, num programa, era pos¬ 
sível dar nome a somente 2S6 variaveis. 

0 uso de subscritos (indices), e o 
comando DIM, expande vastamente este limi¬ 
te. 


5.2 - Variaveis subscritas simples. 

O programa seguinte, gera dez numeros 
aleatórios entre i e 20. 


Programa 5.1: 

10 POR X = 1 TO 10 

20 LET Y = INT(20 * RND + 1) 

30 PR INT Y5*‘ "5 

40 NEXT X 

50 STOP 


Neste programa, cada vez que um valor 
e designado a Y, ele substitui o valor pré¬ 
vio de Y. 0 uso da variável subscrita.sim- 
pleSj resolvera" o problema de numeros du¬ 
plicados. 

Uma variável simples subscrita, ou 
uma variavel "string” subscrita, e repre¬ 
sentada por qualquer variável BASIC legiti¬ 
ma, ou nome de um string seguido por um in¬ 
teiro, que deve aparecer entre parênteses» 

Por exemplo: 

A(1), C5<3), T*<4>. 

São todas variaveis subscritas. 

A variável subscrita^ Líl) não á, en¬ 
tretanto, a mesma coisa de Li. Cada vez 
que o índice da variável subscrita e modi- 
-ficado, uma nova variavel e estabelecida, 
sem que seja perdido o conteúdo da variavel 
anterior. 


Programa 5.2: 

Este programa, e uma revisão do pro¬ 
grama 5.1, e utiliza variáveis subscritas, 
para armazenar os números. Este processo, 
pode ser difícil sem usar as variáveis 
subscritas. 

5 DIM Y(10) 

10 FOR X = 1 TO 10 

20 LET Y(X> - INT(20 * RND + 1> 


48 


30 PRINT Y ( X > 5 " ”5 

40 NEXT X 

50 STOP 
Programa 5.3: 

Utilizando variáveis subscritas, o 
programa abaixo calcula a área de um campo 
medido por três estudantes. 

Suas medições, sãto em metros, e a me¬ 
dia de todas as suas areas calculadas, sào 
em metros quadrados. 

10 LET B = 0 
20 DIM L(3) 

30 DIM W<3> 

40 FOR X = 1 TO 3 

50 PRINT "INFORME O COMPRIMENTO E A 
LARGURA ?" 

60 INPUT L<X) 

70 INPUT W(X) 

80 LET A = L < X) * W(X) 

90 PRINT"AREA * ";A;*‘ M**2” 

100 NEXT X 

110 PRINT TAB (3);“COMP. (L)";TAB(12); 
"LaRG. (W) “ 5 TAB (20) 5 ”AREA (M**2> ,r 
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120 FOR Y = 1 TO 3 

130 PRINT TAB(3);L(Y>;TAB(12> ;W(Y) ; 
TAB(20)5 L <Y) * W(Y) 

140 LET B = B + L(Y) * W(Y> 

150 NEXT Y 

160 PRINT”AREA MEDIA = M ;B/55“ M**2” 
170 STOP 


5.3 — Comando DIM. 

Ouando o mais alto valor do índice 
excede de 10 para uma variável subscrita, o 
computador deve ser informado. 

O comando DIM (DIMENSION) é* usado pa¬ 
ra instruir o computador, para abrir bas¬ 
tante caixas em sua memória para comandar 
a entrada de dados. O programa 5.3 pode 
armazenar 100 comprimentos e larguras, fa¬ 
zendo modificações apropriadas y nas linhas 
20, 30 e comandos FOR...TO... E impossível 
requerer mais espaços na memória, do que o 
computador pode suprir. Isto resulta em 
mensagem de erro. 

5.4 — Variáveis duplamente subscritas. 

O BASIC, pode também usar subscritos 
duplos para nomear uma variável. Isto é* 
similar a subscritos simples, exceto que 
números inteiros separados por vírgulas de¬ 
vem aparecer entre parênteses. 
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Por exemplo: 

A <1,5), B <7,3> e C* (4,9) 

São variáveis subscritas. 

O computador reserva espaço na memó¬ 
ria, para variáveis subscritas duplamente 
por linhas e colunas, ao inves de uma sim¬ 
ples coluna, como e o caso das variaveis de 
subscritos simples. Isto prôve uma técnica 
conveniente para manusear problemas nos 
quais, os dados, tenham natureza bidimen¬ 
sional. Para entender mais claramente, co¬ 
mo variáveis duplamente subscritas operam, 
a analogia de caixas, e útil novamente. 

O primeiro inteiro no subscrito, 
identifica a linha, e o segundo inteiro, a 
coluna na qual a variaVel está localizada. 

Por exemplo: 

A(2,3) 

Está localizada na segunda linha e 
terceira coluna. 


Programa 5.4: 

0 programa seguinte, pode ser usado 
por uma companhia de aviação para fazer re¬ 
serva em um avião. O avião tem 40 linhas 
de assentos, e 5 colunas por linha. Um no¬ 
me de pessoa e armazenado na caixa corres 
pondente a cada assento. 


Í0 DIM A*<40,5> 
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20 FOR X = 1 TO 200 

30 PRINT "QUE LINHA E ASSENTO VOCE 
DESEJA ?" 

40 INPUT R 

50 INPUT S 

60 IF A*(R,S> > " " THEN GOTO 100 
70 PRINT"QUAL E 0 SEU NOME ? " 

80 INPUT A*<R,S> 

90 GOTO 230 

100 PRINT "DESCULPE, ESTE ASSENTO JA 
ESTA RESERVADO' 1 

110 PRINT "VOCE DESEJA UMA LISTA DE 
ASSENTOS VAGOS, S ou N ?" 

120 INPUT 

130 IF Bí - "N" THEN GOTO 30 
140 PRINT"LINHA,ASSENTO" 

150 FOR R « 1 TO 40 
160 FOR S - 1 TO 5 

170 IF A$(R, S) > " 11 THEN GOTO 190 

180 PRINT TAB(l)5R;TAB<5)5 
TAB <7);S 


190 NEXT S 



200 NEXT R 
210 FRINT” " 

220 GOTO 30 
230 NEXT X 

240 PR TNT "O AVI AO ESTA LOTADO. OUTRA 
PARTIDA AMANHA." 

250 STOP 


A linha 10, de-fine as dimensões do 
planejamento de assentos, e a linha 60, de¬ 
termina se um assento ja toi preenchido. 

No começo do programa, todas as cai¬ 
xas das variaveis "string" subscritas sâo 
automaticamente designadas por um espaço em 
branco simples <“ "). Caixas de variaveis 
numéricas subscritas, neto preenchidas, por 
outro lado, são automaticamente designadas 
por 0. Se um passageiro escolhe uma pol¬ 
trona ja preenchida, a linha 110 pergunta 
se ele deseja uma lista de assentos vagos. 

Se ele digita N, o computador retorna 
para a linha 30. Por outro lado, as linhas 
de 140 ate 200 instruem o computador para 
imprimir uma lista de assentos não pre¬ 
enchidos. 

Observe os loops aninhados requeri 
dos, para imprimir os numeros das linhas e 
assentos. 

5.5 - Limitação de variaveis subscritfs. 


Strings subscritas e variaveis nume- 
ricas, melhoram grandemente a habilidade dc 
programador, para armazenar, e «manipular 
qrande quantidade de dados dentro de uma 
corrida de um certo programa. Entretanto, 
deve ser lembrada, que se o programa t odar 
de novo, todos os dados armazenados na me¬ 
mória do computador, sào apagados; todas &■= 

caixas passam a ter os valores brancos ou 
* . . , 

zeros na próxima corrida, 

Exercicios da quinta aula; 


1 - Qual o objetivo do comando DIM ? 

2 — Nos temos um conjunto chamado X. 

Qual a variavel <o nome dela) que 
o BASIC usa, para localizar o elemento da 
-fileira 3 e coluna 4 2 

3 - Escreva um programa onde você 
possa entrar com números em uma variavel 
subscrita duplamente, e calcule e imprima, 
a soma dos elementos em cada linha, e o 
produto dos elementos de cada coluna. 

4—0 seguinte conjunto se chama A: 


13 5 

6 2 4 


a — Escreva um comando DIM para A. 
b — Qual e o valor de A<2,3) ? 
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Qpv f- a anl ^ 

c - Qual o valor de A(A(1,1),A(2,2)>? 

Esta aula só está operacional para a linha 

d - Se X—1 e Y=2, qual o valor de 

A<X,Y) ? Sinclair 

6.1- Comando PAUSE: 


0 comando PAUSE pode ser usado para 
simular o modo SLÜW, na execução de um pro¬ 
grama. 

A -forma geral e: PAUSE N 

onde: N e o número de quadros que a 
televisão mostra por segundo. 

Algumas televisões apresentam 60 qua¬ 
dros por segundo, ou seja PAUSE 60, na qual 
a execução do programa ser a" interrompida 
durante 1 segundo. Quando o computador es¬ 
ta em PAUSE, se você digitar qualquer tecla 
menos espaço, o tempo de interrupção sera 
menor. Depois que o tempo de PAUSE termi¬ 
nar a tela piscara" ou ficara" escura. 

✓ „ ^ 

E aconselhável que apos uma linha que 

contenha o comando PAUSE, usemos uma outra 
linha com PQKE 16437,255 ou poderemos cor¬ 
rer o risco de perdermos o nosso programa. 

Com o uso do comando PAUSE, e possí¬ 
vel programarmos o computador como um reld- 
gio, tomando o cuidado em observar, que a 
precisão não e perfeita. 

Exemplo: Programa para desenhar um 

reldgio: 


10 REM DESENHO DO RELOSIO 
20 FOR N ~ 1 TO 12 
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30 PRINT AT 10-10*COS<N/6*PI>,10+ 
10*SIN<N/6*PI>;N 
40 NEXT N 

50 REM FUNCIONAMENTO DO RELOGIO 
60 FOR T = 0 TO 10000 
70 LET A - T/30*PI 
80 LET SX = 21+1S*SIN A 
90 LET SY = 22+18*005 A 
100 PLOT SX,SY 
110 PAUSE 50 
120 POKE 16437,255 
130 UNPLOT SX,SY 
140 NEXT T 

Observe como o tempo e controlado pe¬ 
la linha 110. 

Vocè esperaria PAUSE 60 para faz# lo 
mudar uma vez por segundo, mas o processa¬ 
mento também toma tempo, e, esse tempo tem 
que ser considerado- A melhor maneira de 
faz#— lo e através de tentativa e erro, cro¬ 
nometrando o relogio do computador com um 
real e ajustando a linha 110. Você nào po¬ 
de fazer isso com precisão; um ajuste de um 
quadro por segundo e dois por cento ou meia 
hora em um dia. 


6.2 — Função INKEY$. 


A função INKEYfc, nào tem argumento, 
lê o teclado como se você estivesse pressi¬ 
onando uma tecla; o resultado e o carater 
que aquela tecla representa? caso contrá¬ 
rio, o resultado e uma string vazia. 

Os caracteres de controle, nào tem o 
efeito comum, porem, dão resultado como 
CHR$ 118 para NEWLINE. Eles são impressos 
como "?"« Tente este programa, que funcio¬ 
na como uma maquina de escrever. 

10 IF INKEYÍ = ” " THEN GOTO 10 

20 PRINT INKEYí; 

30 GOTO 10 

A linha 10 espera você pressionar uma 
tecla- Ao contraVio de INPUT, INKEY$ não 
espera você- Assim,você nào digita NEWLI— 
NE. Por outro lado, se você nào digitar 
nada, você tera perdido a sua chance. 

A função INKEYÍ e muito útil^ nos pro¬ 
gramas de jogos com DISPLAY de gráficos. 

Exemplo: 

Você esta no controle de uma espaço- 
nave, e esta, em combate contra uma nave 
inimiga. Você deve tentar destruir quantas 
naves puder. Se for destruído, tera outra 
chance para provar que e" bom. 

Você tem três naves. 


e pode usar as 
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teclas 6 e 7 para mover—se para cima e para 
baixo e a tecla 1 para atirar no inimigo. 

100 LET J-3 

110 LET S=—1 

120 LET D—INT(RND*28)+3 

130 LET S=S+1 

140 PAUSE 20 

150 LET H-l1 

160 LET L=INT <RND*20> 

170 CLS 

180 PRINT AT H J 0; , •=O ,, 

190 PRINT AT L,D; ,, +=" 

200 IF INKEY* = "1" THEN GOTO 250 

210 IF RND <0.4 AND ABS(H-L) < 2 
THEN GOTO 300 

220 LET H=H—(H >0)*(INKEY$—”7") + 
<H<20)*<INKEY$= ,1 6"> 

230 LET L=L+INT (RND*3>—1+(L<0) — (L>20) 

240 GOTO 170 

250 FOR A=2 TO D 

260 PRINT AT H,A5”-” 


270 NEXT A 

280 IF H=L THEN GOTO 120 
290 GOTO 210 

300 FOR A=D TO 1 STEP -1 

310 PRINT AT L, Af 

320 NEXT A 

330 IF HOL THEN GOTO 220 
340 LET J=J~1 

350 PRINT"VDCE FOI ATINGIDO" 
360 IF J THEN GOTO 120 
370 PRINT"FIM DO JOGO" 

380 PRINT"PONTGS= "?S 
390 PAUSE 50 
400 RUN 
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Sétima aula 


7.1 - Fluxograma e programa aplicativo. 


Fluxograma e a representação de um 
processo por símbolos gráficos. Em progra¬ 
mação, "processo" refere-se a "programa ou 
sequência de instruções". A seguir, apre¬ 
sentamos um ^fluxograma, para um programa de 
calculo da area de um quadrado. 


- INICIO - 


i 

t 


->-/ ENTRAR / 

! / 0 LADO / 

i _ 

* i 

i i 


! CALCULAR ! 
! A AREA í 


/ IMPRIMIR / 
/ A AREA / 


<B> 


(A) 
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(A) <B> 

! » 

i « 


/ OUTRA VEZ ? / 

i 

i 


-<- S/N - 

SIM - 


í NAO 


- FIM - 


Veja, a seguir o que representam os 
diferentes símbolos empregados. 

- Representa o início ou 

— - fim do programa. 

- - Habitualmente so devem 

— — existir dois destes 

- símbolos por programa. 

Um para o início, e 
outro para o fim. 
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- Significa uma entrada 

/ /ou saída de dados, 

/ / causando uma interrup— 

- çào no programa, ate 

a ação do operador, 
como por exemplo: com 
as instruções INPUT, 
PRINT. 


Significa execução, 
mas não relacionada 
com a entrada ou saída 
de dados ou tomadas de 
decisão- Algo como 
operações matematicas. 


E uma tomada de deci¬ 
são. Oferece duas 
possibilidades sim ou 
não. 


-> Sequência ou desvio do 

programa. 

Quando as linguagens de programação 
eram mais complexas, e os computadores eram 
ainda de primeira e segunda gerações, os 
fluxogramas ate' que podiam ter sido boa 
coisa. 

TOP DOWN e uma expressão do inglês, 
difícil de oferecer uma boa tradução. 

Poderíamos dizer "de cima para bai¬ 
xo”, ou "linha reta", ou deixemos mesmo TOP 
DOWN, que significa exemplificar a execução 
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de um programa através de suas funções, 
principalmente pelo esboço das entradas e 
saídas de dados, em um resumo escrito. 

Por exemplo, o programa da área do 
quadrado: 

1. INPUT LADO 

2. CALCULAR A AREA 

3. PRINT A RESPOSTA 

4. CONTINUA ? S/N 

5. SIM, THEN RUN 

6. NAO, THEN STOP 

E um resumo do que se pretende que o 
programa faça. 

Transformando em programa: 


10 PRINT "LADO ?” 

12 INPUT L 
14 LET A-L*L 
16 PRINT L 

18 PRINT" AREA- "SA;” M2" 

20 PRINT "OUTRA VEZ ? <5 OU N)" 

22 INPUT P* 

24 -CLS 

26 IF P*="S" THEN RUN 
28 STOP 

Na linha Apple deve ser usado o cornando 
Home na linha 24. 
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Programa 7-1 — Lista telefônica. 


Este programa arquiva N telefones se¬ 
guidos de nome e endereço. Procura o tele¬ 
fone pelo nome ou vice-versa, oferece pos¬ 
sibilidade de alterar as fichas, etc.. 

Os comandos CLS devem ser substituídos 
pelo comando HOME para usuários da 
linha Apple, 
a - Programa. 


245 CLS 

248 IF P=0 THEN GOTO 22 
250 IF P=1 THEN GOTO 400 
260 IF P=2 THEN GOTO 300 
270 IF P=3 THEN GOTO 510 


1) Modulo "MENU". 


3> Modulo "NOVO ARQUIVO" 


200 PRINT 

205 PRINT" DIGITE PARA PROCURAR:" 

210 PRINT"! - PELO NOME" 

220 PRINT "2 - PELO TELEFONE" 

221 PRINT"DIGITE:“ 

222 PRINT" 3 - PARA ALTERAR/INCLUIR" 
224 PRINT"0 - PARA NOVO ARQUIVO" 

2) Modulo "ESCOLHA" 

230 INPUT P 

240 IF P<0 OR P>3 THEN GOTO 230 
242 IF PO0 AND N=0 THEN GOTO 230 


22 CLS 

25 PRINT "QUANTOS NOMES ? "5 
30 INPUT N 
40 PRINT N 
45 PRINT 

50 PRINT"MAX. 32 LETRAS POR NOME" 
70 DIM A*<N,32> 

80 DIM A(N) 

90 DIM B$(N,32> 

100 FOR X=1 TO N 
110 CLS 

120 PRINT "QUAL 0 ";X;" NOME ?" 
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130 INPUT A*<X> 

140 PRINT"QUAL O TELEFONE ?" 

150 INPUT A(X > 

154 PRINT"QUAL O ENDEREÇO ?" 

156 INPUT BS<X> 

158 IF K=1 THEN GOTO 175 

160 CLS 

161 PRINT A*(X> 

162 PRINT A(X) 

163 PRINT B$ í X > 

164 PAUSE 120 
1 òij C/L.3 

170 NEXT X 
175 LET K=0 

180 PRINT"NOMES E TELEFONES ARQUIVADO 
S" 

4) modulo procura "PELO NOME" 

400 CLS 

405 PRINT”DIGITE O NOME" 


412 LET X-LEN X* 

420 FOR C—1 TO N 

425 LET K$=A$<C,(X+l)> 

430 IF X*=A*(C,TO X) AND CODE<K*>=0 
THEN GOTO 450 

435 NEXT C 

440 GOTO 490 

452 PRINT A*<C> 

455 PRINT A €C) 

460 PRINT B$<C> 

470 PRINT 

480 GOTO 200 

490 PRINT"NOME NAO ENCONTRADO" 

500 GOTO 200 

5> modulo procura "PELO TELEFONE" 

300 CLS 

305 PRINT"DIGITE O TELEFONE" 

310 INPUT X 


410 INPUT X$ 


320 FOR C= 1 TO N 
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330 IF X—A <C> THEN GOTO 350 

335 NEXT C 

340 GOTO 380 

350 PRINT X 

352 PRINT B*<C> 

355 PRINT A$<C> 

360 PRINT 
370 GOTO 200 

380 PRINT”TELEFONE NAO ENCONTRADO" 
386 PRINT 
390 GOTO 200 

6) modulo "ALTERACAO E INCLUSÃO 
510 CLS 

515 PRINT"QUAL A FICHA PARA ALTERAR 
?" 

520 PRINT"DE 1 A ";N 
530 INPUT X 

540 IF X<1 OR X >N THEN GOTO 530 


550 CLS 
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560 LET K=1 
570 GOTO 110 

7) Modulo "INICIO" 

2 LET N=0 
14 LET K=0 

18 PRINT AT 6,0;"LISTA TELEFÔNICA" 

19 PRINT,,,, 


20 GOTO 200 
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Oitava aula 

Para os equipamentos que nào sejam da linha 
Sinclair,o comando LET pode ser suprimido. 

A linha 30 deve ser escrita GET Z$ nos equi¬ 
pamentos da linha Apple. 

8.1— Programa para desenhar na tela. 

10 LET X-32 
20 LET Y=22 
25 PLOT X,Y 
30 LET Z$=INKEY* 


40 

IF 

Z*= ,, 5“ 

THEN 

GOTO 

150 

50 

TF 


THEN 

GOTO 

200 

60 

IF 

Z$= ,I 7 M 

THEN 

GOTO 

250 

70 

IF 


THEN 

GOTO 

300 

30 

IF 

Z$= , T* 

THEN 

GOTO 

350 

90 

IF 

Z$="2" 

THEN 

GOTO 

400 

100 

IF 

Z*= M 3" 

THEN 

GOTO 

500 

110 

IF 

Z«s«4» 

THEN 

GOTO 

550 


120 GOTO 30 

150 LET X=X—1 

160 -IF X<0 THEN LET X=0 


170 GOTO 25 

200 LET Y=Y-1 

210 IF Y<0 THEN LET Y=0 

220 GOTO 25 

250 LET Y=Y+1 

260 IF Y>43 THEN LET Y-43 

270 GOTO 25 

300 LET X=X+1 

310 v IF X>63 THEN LET X=63 

320 GOTO 25 

350 LET X=X-1 

360 LET Y=Y+1 

370 IF Y>43 THEN LET Y=43 

380 GOTO 25 

400 LET X-X+l 

410 LET Y=Y+1 

420 IF Y>43 THEN LET Y=*43 

430 GOTO 25 

500 LET X=X+1 

510 LET Y=Y—1 
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520 IF Y<0 THEN LET Y^0 

530 GOTO 25 

550 LET X=X-1 

560 LET Y-Y-l 

570 IF Y<0 THEN LET Y-0 

580 GOTO 25 

Neste programa, nas linhas 10 e 20, 
armazenamos as coordenadas do ponto que se¬ 
rá impresso no centro da tela. 

A escolha das direçòes, nas quais po¬ 
deremos deslocar o ponto que -formara o nos¬ 
so desenho, e obtida apartir da linha 30 
ate a linha 120. 

Descrição das rotinas: 

a) A primeira, é para deslocar o pon¬ 
to para a esquerda. Para isto, devemos di¬ 
minuir de uma unidade o valor de X. 

b) A segunda, e^ para deslocar o ponto 
para baixo. Agora devemos subtrair uma 
unidade do valor de Y. 

c> A terceira, e' para deslocar o pon¬ 
to para cima. Para isto, devemos agora au¬ 
mentar de uma unidade o valor de Y. 

d) A quarta, e* para deslocar o ponto 
para a direita. Para isto, mantemos -fixo o 
valor de Y e variamos o valor de X. 

e) A quinta, é para deslocar o ponto 


para a esquerda e para cima. Neste caso, 
iremos diminuir o X e aumentar o Y. 

í> A sexta, e para deslocar o ponto 
para a direita e para cima. Neste caso, 
iremos aumentar o valor de X e Y. 

g) A sétima, é para deslocar o ponto 
para a direita e para baixo. Neste caso, 
iremos aumentar o valor de X e diminuir o 
valor de Y. 

h) A oitava, é para deslocar o ponto 
para a esquerda e para baixo. Neste caso, 
iremos diminuir o valor de X e diminuir o 
valor-de Y. 


Depois que o desenho estiver pronto, 
para executarmos outro, devemos apertar a 
tecla BREAK e, em seguida, o comando RUN, 
para reiniciar. Uma alternativa para evi¬ 
tar isto, séria acrescentarmos uma rotina 
para apagar a tela. 
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Nona aula 


9-1 — Exercícios. 


4) Escreva um programa para imprimir 
um triângulo com o numero N de linhas e N 
dígitos de altüra, usando somente o numero 
1. Por exemplo: usando N-5, a saída seria 
como a da -Figura abaixo. 


1) Use o computador e calcule as suas 
retiradas na biblioteca. In-forme o nCfmero 1 

de livros que você pegou emprestado e quan- x 1 

tos dias cada um ficou emprestado. Faça o m 

computador imprimir o total de sua conta se 1111 

você paga CR* 10,00 por dia e por livro. 11111 


2) Considerando que você dorme S ho¬ 
ras por dia, Faça o computador imprimir 
quantas horas de sua vida você passou dor¬ 
mindo. Entre com os dados do seu nascimen¬ 
to e a data de hoje, na Forma numérica, is¬ 
to e: DDMMAA. (dia, mês e ano) 


3) Bilhetes estão sendo vendidos para 
um show de opera. Somente vinte estão dis¬ 
poníveis. Use o computador para registrar 
a venda de bilhetes. Se uma compra parti¬ 
cular requerer mais bilhetes do que o nume¬ 
ro disponível, o computador deve dar um 
aviso de que existem menos bilhetes que os 
solicitados. 

Se existirem bilhetes para atender o 
pedido particular, o computador deve acei¬ 
tar a ordem e incrementar o contador de bi¬ 
lhetes vendidos. Quando todos os bilhetes 
Forem vendidos, o computador devera' impri¬ 
mir: FIM DE VENDA. 
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ANEXO II — Soluçào dos exercícios. 

Obs. Os exercícios estâto resolvidos para 
a linha Sinclair. Para outros equipamentos, 
você prõprio deve -fazer as adaptaçòes 
a título de exercício. 

Aula 1: 

l-a> SIM, NAO, SIM, SIM 
SIM, NAO, NAO, SIM 

1-b) Três -*> uma letra, duas letras e uma 
letra e um numero. 

2) 10 INPUT X 
20 INPUT Y 

30 LET A=I2*X+7*Y 
40 PRINT A 
50 GOTO 10 
60 STOP 

3> 10 PRINT "QUANTOS PEDAÇOS VOCE COMEU ?" 


20 INPUT P 
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30 LET M = P * 3.75 
40 PRINT 

50 PRINT “VOCE DEVE CORRER "SM? 

" MILHAS" 

60 PRINT 

70 GOTO 10 

80 STOP 

4> 10 PRINT" ENTRE COM A LARGURA" 

20 INPUT L 

30 PRINT" ENTRE COM 0 COMPRIMENTO” 

40 INPUT C 

50 PRINT "ENTRE COM A ALTURA" 

60 INPUT A 

70 LET V - L * C * A 
80 PRINT 

90 PRINT "O VOLUME E: "íV 
100 PRINT 
í10 GOTO 10 
120 STOP 

5) 10 PRINT "ENTRE COM O PRIMEIRO NUMERO» 
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20 INPUT Ni 

30 PRINT"ENTRE COM O SEGUNDO NUMERO" 
40 INPUT N2 

50 PRINT"ENTRE COM O TERCEIRO NUMERO" 
60 INPUT N3 

70 PRINT"ENTRE COM O QUARTO NUMERO" 

80 INPUT N4 

90 LET M - <N1 + N2 + N3 + N4> / 4 
100 PRINT 

110 PRINT"A MEDIA E: ";M 
120 PRINT 
130 GOTO 10 
140 STOP 

6) 10 PRINT"ENTRE COM O PRECO TOTAL" 

20 INPUT P 

30 PRINT"ENTRE COM A QUANTIDADE TOTAL” 
40 INPUT Q 
50 LET U = P / Q 
60 PRINT 
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70 PRINT”O PRECO UNITÁRIO E: ";U 
80 PRINT 
90 GOTO 10 
100 STOP 

7) 10 PRINT"ENTRE COM GRAUS F” 

20 INPUT F 

30 LET C = <5 / 9) * (F - 32) 

40 PRINT 

50 PRINT F;" GRAUS F SAO "jC?" GRAUS 

60 PRINT 
70 GOTO 10 
80 STOP 

8) 10 PRINT"ENTRE COM A" 

20 INPUT A 

30 PRINT"ENTRE COM B" 

40 INPUT B 
50 LET S - A B 


60 LET P = A * B 


80 
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70 PRINT 

80 PRINT”A SOMA DE A COM BE: ”5S 
90 PRINT”0 PRODUTO DE A COM BE: ”;P 
100 PRINT 
110 GOTO 10 
120 STQP 

Aula 2: 

1) 10 FOR X==10 TO 40 STEP 2 

20 IF (3/5) * X**2 + 2*X + 2/5 > 300 
THEN GOTO 40 

30 GOTO 50 

40 PRINT X5“ ”5 

50 NEXT X 

60 STOP 

2) 10 PRINT“ENTRE COM A SUA IDADE” 

20 INPUT I 

30 IF I >= 16 THEN GOTO 60 

40 PRINT”VOCE DEVE ESPERAR ”516-1; 

" ANOS” 


50 GOTO 70 

60 PRINT"VOCE PODE DIRIGIR UM CARRO” 
70 PRINT 
80 GOTO 10 
90 STOP 

3) 10 PRINT”N",”SQR<N>“ 

20 PRINT 

30 FOR N=1 TO 10 
40 PRINT N,SQR <N) 

50 NEXT N 
60 STOP 

4) 10 LET X=0 
20 PRINT X;” 

30 LET X = X + 10 
40 IF X > 500 THEN STOP 
50 GOTO 20 
60 STOP 

5) 10 FOR A—1 TO 10 
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20 PRINT"ANDAR ”3 A 
30 PRINT 

40 FOR B= 1 TO 10 

50 LET C - A * 100 + B 

60 PRINT“APOSENTO NUM. ”5C 

70 NEXT B 

80 NEXT A 

90 STOP 

6> 10 PRINT"POLEGADAS"^‘CENTÍMETROS" 

20 PRINT 

30 FOR P=0 TO 10 STEP 0.5 
40 LET C = P * 2.54 
50 PRINT P,C 
60 NEXT P 
70 STOP 

Aula 3: 

1) Uma variavel STRIN8 e identificada pe¬ 
lo símbolo <*) após uma letra. Exemplo: A* 


2) 10 FOR X=1 TO 3 

20 PRINT TAB ( 10)3"XX" 

30 NEXT X 

40 FOR X=1 TO 2 

50 PRINT TABC10) 5 "XXXXXX** 

60 NEXT X 
70 STOP 

3) 10 LET X-0 
20 INPUT A$ 

30 PRINT TAB < X )3 A$ 

40 IF X=42 THEN GOTO 10 
50 LET X=42 
60 GOTO 20 
70 STOP 

4) 10 PRINT“ENTRE UMA PALAVRA” 
20 INPUT A$ 

30 FOR X=1 TO LEN A* 

40 PRINT TAB<X)3A$(X> 

50 NEXT X 
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60 STOP 

5) 10 PRINT H ENTRE UMA PALAVRA" 

20 INPUT A* 

30 FOR X=1 TO LEN A* 

40 PRINT A*(X) 

50 NEXT X 
60 STOP 

6> 10 PRINT"ENTRE UMA PALAVRA" 

20 INPUT A$ 

30 FOR X—l TO LEN A* 

40 PRINT A$(X TO LEN A*> 

50 NEXT X 
60 STOP 

ila 4: 

1> Devemos usar o comando RAND. 

2) Devemos utilizar a -funçào RND. 
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3> 10 FOR X=i TO 10 

20 LET R=INT(26*RND>+50 
30 PRINT R5" "5 

40 NEXT X 
50 STOP 

4) 10 FOR X=i TO 10 

20 LET R=INT(6*RND>+1 
30 PRINT"FACE- ”5R 
40 NEXT X 
50 STOP 

Aula 5: 

1) Reservar espaço na memória para arma¬ 
zenamento das varikveis. 

2) X (3, 4) 

3) 10 PRINT"ENTRE COM AS DIMENSÕES DE 
A < I, J) " 

20 PRINT"DIGITE O VALOR DE I" 
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30 INPUT I 

40 PRINT"DIGITE O VALOR DE J" 

50 INPUT 3 
60 DIM A(I,J> 

70 FOR X=i TO I 
80 FOR Y—1 TO J 

90 PRINT"ENTRE COM O VALOR DE A{";X; 

Kl II . y - II J II 

100 INPUT A < X,Y) 

110 NEXT Y 

120 NEXT X 

130 LET TL=0 

140 LET TC=1 

150 FOR X—1 TO I 

160 FOR Y=1 TO J 

170 LET TL=TL + A<X,Y> 

180 NEXT Y 

190 PRINT"SOMA DA LINHA ";X;": ";TL 
200 LET TL=0 
210 NEXT X 


220 FOR Y—1 TO J 
230 FOR X—I TO I 
240 LET TC=TC * A(X,Y) 

250 NEXT X 

260 PRINT"PRODUTO DA COLUNA "5 Y;": 

270 LET TC=1 
280 NEXT Y 
290 STOP 

4> a- A(2,3) 
b- A(2,3)=4 
c- A(1,2)=3 
d- A <1,2)=3 

Aula 9 : 

1) 5 LET T=0 

10 PRINT"QUANTOS LIVROS EMPRESTADOS" 
20 INPUT X 
30 FOR 1=1 TO X 

40 PRINT"QUANTOS DIAS O LIVRO ”;I; 
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" FICOU EMPRESTADO” 

50 INPUT Y 
60 PRINT 

70 LET T=T+Y*10+10 
80 NEXT I 

90 PRINT"TOTAL DA CONTA: CR* ”5T 
100 GOTO 10 

2) 10 PRINT"DATA DE NASCIMENTO ÍDDMMAA)" 

20 INPUT N 
30 PRINT 

40 PR INT "DATA DE HQJE ÍDDMMAA)" 

50 INPUT H 

60 LET DN=INT<N/10000) 

70 LET MN=INT<N/100}~DN*Í00 
80 LET AN=N-ÍDN*10000+MN*100> 

90 LET D1 =DN-*-MN*30+AN*360 
100 LET DH=INTÍH/10000) 

110 LET MH=INT<H/100)-DH*100 
120 LET AH=4f~(DH*10000+MH*100) 


89 


130 LET D2=DH+MH*30+AH*360 
140 LET X= <D2—Dl) «-8 

150 PRINT" VOCE DORMIU ATE ";H; U ";x; 
" HORAS" 

160 PRINT 

170 PRINT 

180 BOTO 10 

3) 10 LET K—20 

20 PRINT"QUANTOS BILHETES DESEJA ?" 
30 INPUT N 

40 IF N>K THEN GOTO 80 
50 LET K=K-N 
60 IF K—0 THEN GOTO 120 
70 GOTO 10 

B0 PRINT"SO EXISTEM ";K;" BILHETES 
DISPONÍVEIS" 

90 PRINT 

100 IF K—0 THEN GOTO 120 
110 GOTO 10 

120 PRINT"FIM DE VENDA" 


130 PRINT 
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140 STOP 

4) 10 PRINT”INDIQUE A ALTURA DO TRIANGU 

LO" 

20 IWPUT N 
30 FQR 1=1 TO N 
40 FGR J=í TO I 
50 PRINT"1“5” "5 
55 NEXT J 
60 PRINT 
70 NEXT I 
80 PRINT 
90 GOTO 10 


100 STOP 
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